home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12src.lzh / Runtime / System / Exec / Tasks.asm < prev   
Assembly Source File  |  1991-03-13  |  2KB  |  106 lines
  1. *
  2. *    Tasks.asm of PCQ Pascal
  3. *    Copyright (c) 1990 Patrick Quaid
  4. *
  5. *    These are the glue routines for the Exec library routines defined
  6. *    in Include/Exec/Tasks.i.  CreateTask() and DeleteTask() are
  7. *    defined in Runtime/Extras.
  8. *
  9.  
  10.     SECTION    PCQ_Runtime,CODE
  11.  
  12.     XREF    _AbsExecBase
  13.  
  14.     XREF    _LVOAddTask
  15.     XDEF    _AddTask
  16. _AddTask
  17.     movem.l    a2/a3,-(sp)
  18.     move.l    12(sp),a3
  19.     move.l    16(sp),a2
  20.     move.l    20(sp),a1
  21.     move.l    _AbsExecBase,a6
  22.     jsr    _LVOAddTask(a6)
  23.     movem.l    (sp)+,a2/a3
  24.     rts
  25.  
  26.     XREF    _LVOAllocSignal
  27.     XDEF    _AllocSignal
  28. _AllocSignal
  29.     move.l    4(sp),d0
  30.     move.l    _AbsExecBase,a6
  31.     jmp    _LVOAllocSignal(a6)
  32.  
  33.     XREF    _LVOAllocTrap
  34.     XDEF    _AllocTrap
  35. _AllocTrap
  36.     move.l    4(sp),d0
  37.     move.l    _AbsExecBase,a6
  38.     jmp    _LVOAllocTrap(a6)
  39.  
  40.     XREF    _LVOFindTask
  41.     XDEF    _FindTask
  42. _FindTask
  43.     move.l    4(sp),a1
  44.     move.l    _AbsExecBase,a6
  45.     jmp    _LVOFindTask(a6)
  46.  
  47.     XREF    _LVOFreeSignal
  48.     XDEF    _FreeSignal
  49. _FreeSignal
  50.     move.l    4(sp),d0
  51.     move.l    _AbsExecBase,a6
  52.     jmp    _LVOFreeSignal(a6)
  53.  
  54.     XREF    _LVOFreeTrap
  55.     XDEF    _FreeTrap
  56. _FreeTrap
  57.     move.l    4(sp),d0
  58.     move.l    _AbsExecBase,a6
  59.     jmp    _LVOFreeTrap(a6)
  60.  
  61.     XREF    _LVORemTask
  62.     XDEF    _RemTask
  63. _RemTask
  64.     move.l    4(sp),a1
  65.     move.l    _AbsExecBase,a6
  66.     jmp    _LVORemTask(a6)
  67.  
  68.     XREF    _LVOSetExcept
  69.     XDEF    _SetExcept
  70. _SetExcept
  71.     move.l    4(sp),d1
  72.     move.l    8(sp),d0
  73.     move.l    _AbsExecBase,a6
  74.     jmp    _LVOSetExcept(a6)
  75.  
  76.     XREF    _LVOSetSignal
  77.     XDEF    _SetSignal
  78. _SetSignal
  79.     move.l    4(sp),d1
  80.     move.l    8(sp),d0
  81.     move.l    _AbsExecBase,a6
  82.     jmp    _LVOSetSignal(a6)
  83.  
  84.     XREF    _LVOSetTaskPri
  85.     XDEF    _SetTaskPri
  86. _SetTaskPri
  87.     movem.l    4(sp),d0/a1
  88.     move.l    _AbsExecBase,a6
  89.     jmp    _LVOSetTaskPri(a6)
  90.  
  91.     XREF    _LVOSignal
  92.     XDEF    _Signal
  93. _Signal
  94.     movem.l    4(sp),d0/a1
  95.     move.l    _AbsExecBase,a6
  96.     jmp    _LVOSignal(a6)
  97.  
  98.     XREF    _LVOWait
  99.     XDEF    _Wait
  100. _Wait
  101.     move.l    4(sp),d0
  102.     move.l    _AbsExecBase,a6
  103.     jmp    _LVOWait(a6)
  104.  
  105.     END
  106.